home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D01.D64 / smooth scr demo (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.4 KB  |  133 lines
  1. 100 REM" [211]MOOTH SCROLLER DEMO, ([195]) [193].[205]ILLETT 1990
  2. 120 [143]" (null)AKEN FROM GOMOKU.
  3. 150 POKE55,0:POKE56,128:CLR:REM" TOP=32768
  4. 200 [134] CNV%(64) :[143]" ASC-SPRITE CONVERSION
  5. 300 GOSUB 9000 :REM" [201]NIT VARS
  6. 320 [141] 32500:[143]" FILL CNV%() FOR SPRITE-CONVERSION
  7. 340 GOSUB 30000:REM" [211]ET VDU TO $8000, [204]OAD CHRSET,SPRITES,M/CODE
  8. 360 [141] 31000:[143]" (null)ELECT UPPER
  9. 380 GOSUB 20000:REM" [193]ND DO DEMO...
  10. 990 [128]
  11. 999 :
  12. 9000 [143]" RIGHT$NITIALISE VARIABLES
  13. 9010 S=54272             :REM" [211][201][196]
  14. 9040 VIC [178] 53248         :[143]" (null)RIGHT$LEN CHIP
  15. 9050 P=32768 : COL=55296 :REM" [214][196][213], COLOR RAM
  16. 9590 [142]
  17. 9999 :
  18. 20000 [143] * INSTRUCTIONS
  19. 20005 [153]"LOAD";
  20. 20010 [151]53280,4:[151]53281,2
  21. 20015 [141] 29000
  22. 20020 [153]"DEFORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
  23. 20030 [153]"DEF(null)SYS  (null)(null)(null)   (null)(null)  (null)   (null)  (null)(null)  (null)  (null) (null)  (null) DEF(null)"
  24. 20040 [153]"(null)SYS (null)   (null) (null)  (null) (null)(null) (null)(null) (null)  (null) (null) (null)  (null)  (null) DEF(null)"
  25. 20050 [153]"(null)SYS (null)     (null)  (null) (null) (null) (null) (null)  (null) (null)(null)   (null)  (null) DEF(null)"
  26. 20060 [153]"(null)SYS (null) (null)(null)(null) (null)  (null) (null)   (null) (null)  (null) (null)(null)   (null)  (null) DEF(null)"
  27. 20070 [153]"(null)SYS (null)   (null) (null)  (null) (null)   (null) (null)  (null) (null) (null)  (null)  (null) DEF(null)"
  28. 20080 [153]"(null)SYS  (null)(null)(null)   (null)(null)  (null)   (null)  (null)(null)  (null)  (null)  (null)(null)  DEF(null)"
  29. 20090 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
  30. 20120 [153]"SMOOTH SCROLLER DEMO."
  31. 20140 [153]"COPYRIGHT A.MILLETT."
  32. 20299 :
  33. 20300 KY$[178]" "
  34. 20310 MPTR[178]0 :[143]" (null)ESET PTR FOR NEW MESSAGE
  35. 20320 MSG$=" %WELCOME TO %&GOMOKU! ":GOSUB 32700
  36. 20330 MSG$=" %&BROUGHT TO YOU BY %&COMMODORE DISK USER %&":GOSUB 32700
  37. 20340 MSG$="MAGAZINE, POSSIBLY THE BEST MAG IN THE HISTORY OF TIME ":GOSUB32700
  38. 20350 MSG$="ITSELF. I HOPE YOU LIKE THE %&BOUNCY SCROLL, %& IT ":GOSUB 32700
  39. 20360 MSG$="MAKES A CHANGE FROM THE USUAL SMOOTH SCROLL EFFECT. ":GOSUB 32700
  40. 20370 MSG$="I HAVE IMPLEMENTED TWO VARIETYS OF THE GAME HERE, ":GOSUB 32700
  41. 20380 MSG$="SINCE IT IS TOO EASY FOR THE FIRST PLAYER TO FORCE ":GOSUB 32700
  42. 20390 MSG$="A WIN IN TRADITIONAL GOMOKU.  %":GOSUB 32700
  43. 20395 PRINT"HIT SPACE TO CONTINUE."
  44. 20400 GOSUB 32100:REM" SCROLL A MESSAGE
  45. 20450 [141] 31200:[143]" TO LOWER CASE..
  46. 20500 PRINT"[147][207]K, DEMO OVER."
  47. 20990 RETURN
  48. 20999 :
  49. 29000 REM" FILL SCREEN WITH BLACK 87
  50. 29040 [151] 39984[170]17,87:[143]" SET FILLCHR
  51. 29060 SYS 39951 :REM" FILLVDU
  52. 29100 [142]
  53. 29999 :
  54. 30000 [143]" RIGHT$NITIALISE UDG @ $8000, (null)OAD CHRSET,SPRITES,M/CODE
  55. 30020 IF PEEK(828) = 123 THEN 30500
  56. 30030 POKE 828,123
  57. 30040 REM" [197]NSURE BITS 0,1 OUTPUT
  58. 30060 [151] 56578,[194](56578) [176] 3
  59. 30080 [151] 56576,([194](56576) [175] 252) [176] 1:[143]" (null)EL BANK $8000
  60. 30100 POKE 53272,4:REM" [214]DU $8000, [195]HRSET $8800
  61. 30120 [151] 648,128:[143]" (null)ELL KERNAL WHERE (null)DU IS.
  62. 30130 PRINT"[147]";
  63. 30140 LOAD"SET.GOM*",8,1
  64. 30160 RETURN
  65. 30499 :
  66. 30500 REM" [204]OAD SPRITE CHARS
  67. 30520 [139] [194](829) [178] 123 [167] 30700
  68. 30540 [151] 829,123
  69. 30560 [147]"LET.$A000",8,1
  70. 30580 [144]
  71. 30699 :
  72. 30700 [143]" LOAD SMOOTH M/CODE
  73. 30720 IF PEEK(830) = 123 THEN RETURN
  74. 30740 POKE 830,123
  75. 30760 LOAD"SMOOTH??.EXE*",8,1
  76. 30780 STOP
  77. 30799 :
  78. 30999 :
  79. 31000 REM" [211]WITCH TO UPPER UDG SET
  80. 31040 [151] 53272,2:[143]" (null)DU $8000, LENHRSET $8800
  81. 31090 RETURN
  82. 31099 :
  83. 31200 REM" [211]WITCH TO NORM LOWER/UPPER
  84. 31240 [151] 53272,6:[143]" (null)DU $8000, LENHRSET NORM
  85. 31290 RETURN
  86. 31999 :
  87. 32000 REM" [211]MOOTH [211]CROLL (MSG$) TIL (KY$)
  88. 32040 [143]
  89. 32060 MPTR[178]0
  90. 32080 [141] 32700 :[143]" PEEKUILD MESSAGE
  91. 32099 :
  92. 32100 REM" CALL HERE IF ALREADY BUILT.
  93. 32199 :
  94. 32200 FL[178]39984 :[143]" (null)TART OF FLAGS
  95. 32250 POKE FL+15,224  :REM" VERT LINE
  96. 32260 [151] FL[170]10,1    :[143]" (null)PR COLOR
  97. 32300 SYS 39939  :REM" RESETSMOOTH
  98. 32340 [158] 39936  :[143]" DOSMOOTH
  99. 32399 :
  100. 32400 GET CKY$
  101. 32420 FOR X=1 TO LEN(KY$)
  102. 32440 : IF CKY$=MID$(KY$,X,1) THEN POKE VIC+21,0:RETURN
  103. 32460 NEXT X
  104. 32480 GOTO 32340 :REM" [201]NCORRECT KEY, CONT WITH SMOOTH..
  105. 32499 :
  106. 32500 [143]" RIGHT$NITIALISE CNV%() FOR ASC/SPRITE CONVERSION
  107. 32520 FOR X=0 TO 63
  108. 32530 : CNV%(X)=0
  109. 32540 NEXT X
  110. 32560 FOR X=1 TO 26
  111. 32570 : CNV%(X)=X+1
  112. 32580 NEXT X
  113. 32600 CNV%(32)=1
  114. 32610 CNV%(38)=128 :REM" & WIGGLE
  115. 32620 CNV%(37)[178]129 :[143]" % FAST
  116. 32630 CNV%(46)=28
  117. 32640 CNV%(33)=29
  118. 32660 CNV%(63)=30
  119. 32670 CNV%(39)=31
  120. 32680 CNV%(44)=32
  121. 32690 RETURN
  122. 32699 :
  123. 32700 REM" [194]UILD MESSAGE (MSG$)
  124. 32720 MLOC[178]36864[170]MPTR[171]1
  125. 32740 [129] CM[178]1 [164] [195](MSG$)
  126. 32760 : CH%[178][198]([202](MSG$,CM,1))
  127. 32900 : [151] MLOC[170]CM,CNV%(CH% [175] 63)
  128. 32920 [130] CM
  129. 32940 [151] MLOC[170]CM,0  :[143]" NULL TERM
  130. 32960 MPTR=MPTR+CM-1
  131. 32990 RETURN
  132. 32999 :
  133.